;; (setq debug-on-message "‘case’ is an obsolete alias (as of 27.1); use ‘cl-case’ instead.")

(load-theme 'wombat)
;; (setq debug-on-error t)

(let ((default-directory "/usr/src/packages/emacs/"))
  (normal-top-level-add-subdirs-to-load-path))

;; (load "~/.emacs.d/package.archives")
;; (package-initialize)

(require 'cask-mode)
;; (require 'load-directory)

(load "~/.emacs.d/frame.settings")
;; (load "~/.emacs.d/queue")
;; (load "~/.emacs.d/neotree")
;; (load "~/.emacs.d/ssh")
(load "~/.emacs.d/erlang")
;; (load "~/.emacs.d/gas-mode/gas-mode")
;; (load "~/.emacs.d/slime")
;; (load "~/.emacs.d/lfe")
;; (load "~/.emacs.d/graphql")
;; (load "~/.emacs.d/node-js-comint")
;; (load "~/.emacs.d/elm")
(load "~/.emacs.d/eshell-customization")
;; (load "~/.emacs.d/haskell")
;; (load "~/.emacs.d/sml")
(load "~/.emacs.d/ocaml")
;; (load "~/.emacs.d/clojure")
(load "~/.emacs.d/git.el")
(load "~/.emacs.d/web-mode")
(load "~/.emacs.d/typescript")
;; (load "~/.emacs.d/lsp-mode")
(load "~/.emacs.d/lisp")
(load "~/.emacs.d/scheme")

(defun load-directory (dir)
  (letrec ((load-directory-pattern "\\(.elc?\\|.ELC?\\)$")
	(files (directory-files
		(expand-file-name (substitute-in-file-name dir))
		t
		load-directory-pattern)))
    (mapcar 'load-file files)))

 (load-directory "~/source/elisp/schemer-extensions")
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(ignored-local-variable-values '((Base . 10) (Package . CL-FAD) (Syntax . COMMON-LISP))))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )
